home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / chekform.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-10  |  2.1 KB  |  40 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** CHECK RECORD AND RECONCILING SHEET  *********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN           CHECK LEDGER AND STATMENT RECONCILIATION SHEET                OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN   This program will print a check-ledger and reconciliation sheet       OPEN
  7. 24  'OPEN which can be used in a three-ring notebook or clipboard. The program    OPEN
  8. 26  'OPEN will open with a "How many Copies? " query.  Make certain printhead is  OPEN
  9. 28  'OPEN at perforation and printer in on-line before responding. The form can   OPEN
  10. 30  'OPEN be modified for several uses by changing headings and adjusting the     OPEN
  11. 32  'OPEN print spaces in the appropriate form-generating lines.                  OPEN
  12. 34  'OPEN                                                                         OPEN
  13. 36  'OPEN                       (c) G I N A C O  - 1983         Ver 5.2/160/320   OPEN
  14. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  15. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  16. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  17. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  18. 100  KEY OFF:COLOR 7,0:LOCATE ,,1,0,7
  19. 110  CLS:LOCATE 10,25:INPUT"How many copies ";N
  20. 120  WIDTH "LPT1:",80
  21. 130  LPRINT CHR$(27);CHR$(69);
  22. 140  LPRINT CHR$(27);CHR$(85) + CHR$(1)
  23. 150  LPRINT CHR$(27);CHR$(69);
  24. 160  FOR NUMBER = 1 TO N
  25. 170  LPRINT STRING$(4,10);
  26. 180  LPRINT TAB(15)"MONTH____________ YEAR 198______  CHECK WORK SHEET & RECORD"
  27. 190  LPRINT
  28. 200  LPRINT STRING$(78,"=");
  29. 210  LPRINT"| DATE   CHECK #  ITEM DESCRIPTION    AMOUNT $    DEPOSIT $   BALANCE $  CLR |"
  30. 220  LPRINT"|------|--------|-------------------|-----------|----------|-----------|-----|";
  31. 230  FOR I = 1 TO 26
  32. 240  LPRINT"|      |        |                   |           |          |           |     |";
  33. 250  LPRINT"|------|--------|-------------------|-----------|----------|-----------|-----|";
  34. 260  NEXT
  35. 270  LPRINT CHR$(12)
  36. 280  NEXT NUMBER
  37. 290  END
  38. 65000  '************************* SAVE ROUTINE ********************************
  39. 65100  SAVE"B:CHEKFORM.BAS"
  40.